home *** CD-ROM | disk | FTP | other *** search
/ Total Web Page (Professional Suite) / Total Web Page 99.iso / CGI / SSIS.HTML < prev    next >
Text File  |  1996-06-10  |  7KB  |  260 lines
  1. #! /usr/bin/perl
  2. #
  3. # Server-Side Include Substitute (ssis)
  4. #
  5. # Version 1.1.3 - August 1, 1995 - Removed the need for cgi-lib.pl
  6. # Version 1.1.2 - May 9, 1995 - Slight documentation chages - GEB
  7. # Version 1.1.1 - Mar 10, 1995 - modified it to work if . isn't in path - GNS
  8. # Version 1.1 - Mar 3, 1995
  9. # Version 1.0 - Mar 1, 1995
  10. #
  11. # This script is meant to allow server-side include functionality without
  12. # *actually* using server-side includes.  It does this by running as a
  13. # CGI program, and parsing the pages itself.
  14. #
  15. # Written by George Burgyan <gburgyan@nforce.com> and Gabe Schaffer
  16. # <gabe@gabe.com>
  17. #
  18. ###########################################################################
  19. #
  20. # Usage:
  21. #
  22. #  Put this program in the directory where you put your CGI programs.
  23. #  Call the program like this:
  24. #
  25. #   http://www.site.edu/cgi-bin/your_dir/ssis/~username/the_page_you_want.html
  26. #
  27. #  This will send the document
  28. #
  29. #   http://www.site.edu/~username/the_page_you_want.html
  30. #
  31. #  except it will handle the server-side includes.
  32. #
  33. #  If you're using the CERN server, you can have the server map the URL
  34. #  into the proper format by putting this in your httpd.conf file:
  35. #
  36. #    Map /dir/filename.html /cgi-bin/ssis/dir/filename.html
  37. #
  38. #  which will map any requests transparently onto the ssis script URL.
  39. #
  40. ###########################################################################
  41. #
  42. # Bugs:
  43. #
  44. #  Right now it will only handle the <!--#exec cgi="program"--> server-
  45. #  side includes.  This limitation will be removed shortly. 
  46. #
  47. ###########################################################################
  48. # Leave the next line alone...  it's used in the default config.
  49. #chop($pwd = `/bin/pwd`);    # save this for later
  50. ###########################################################################
  51. #
  52. #   Configuration section
  53. #
  54. ###########################################################################
  55. #
  56. # $ScriptAlias
  57. #
  58. # The directory to look in to find CGI programs.  Normally it is something
  59. # like '/usr/local/etc/httpd/cgi-bin' or something like it.  On CERN systems
  60. # it may be called something like 'htbin' or something.
  61. #
  62. # The following GUESSES where the cgi-bin directory is on the assumption
  63. # that this script is called with an absolute path.
  64. # If this does not work, you have to actually set it.
  65. # I have tested it on my configuration with both NCSA and CERN httpd and
  66. # it worked on those.  Your mileage may vary.
  67. # 
  68. ($ScriptAlias{"/cgi-bin/"}) = ($0 =~ m!^(.*/)?.*$!);
  69. #
  70. #$ScriptAlias{"/cgi-bin/"} = "/usr/httpd/cgi-bin/";
  71. #
  72. # Also note that you can set up *multiple* aliases.  (this is not that
  73. # often used.)
  74. # 
  75. #%ScriptAlias = ( "/cgi-bin/", "/usr/cgi-bin/",
  76. #          "/htbin/", "/usr/cgi-bin",
  77. #        );
  78. #
  79. ###########################################################################
  80. #
  81. # $DocumentRoot
  82. #
  83. # Set this variable to point at the *systems* home web directory.  It might
  84. # be called '/usr/local/etc/httpd/htdocs' or something.
  85. #
  86. #$DocumentRoot = "/usr/webdocs";
  87. #
  88. # If you are running a multi-homed host (ie. one machine looks like many
  89. # different web servers) you can set this up for each server so it looks
  90. # in a different directory based on which "server" was accessed.
  91. #
  92. #%DocumentRoot = ( "www.cybercon.com", "/usr/webdocs",
  93. #                  "www.gabe.com", "/home/gabe/public_html",
  94. #                );
  95. #
  96. ###########################################################################
  97. #
  98. # $DirectoryIndex
  99. #
  100. # This should be the default file returned if a directory is requested.
  101. #
  102. $DirectoryIndex = "index.html";
  103. #
  104. ###########################################################################
  105. #
  106. # This is set to be the user's web directory. (ie. where you put your web
  107. # documents.  Default NCSA is public_html.
  108. #
  109. $UserDir = "public_html";
  110. #
  111. ###########################################################################
  112. #
  113. # End of configuration info
  114. #
  115.  
  116. #print "<pre>". `env` . `/bin/pwd`."</pre>\n";
  117.  
  118. if (!$ENV{"PATH_TRANSLATED"}) 
  119. {
  120.     print "Content-type: text/html\n\n";
  121.     &ServerError;
  122. }
  123.  
  124. $file = $ENV{"PATH_TRANSLATED"};
  125.  
  126. if (-d $file && !($file =~ /\/$/)) { # If it points to a directory without a
  127.                 # '/' after it, relative links will be broken,
  128.                 # send a redirect to the client to make
  129.                 # the client look in the right place.
  130.     print "Location: http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME}$ENV{PATH_INFO}/\n\n";
  131.     exit;
  132. }
  133.  
  134. $ENV{"DOCUMENT_URI"} = $ENV{"PATH_INFO"};
  135.  
  136. if (-d $file) {
  137.     $file .= $DirectoryIndex;
  138.     $ENV{"DOCUMENT_URI"} .= $DirectoryIndex;
  139. }
  140.  
  141. if (!($file =~ m!^.*\.html?!)) # is it an html (or htm)?
  142. {                # it's not, so we can't parse it
  143.     print "Location: $ENV{PATH_INFO}\n\n"; # have the server send it out raw
  144.     exit;
  145. }
  146.  
  147. print "Content-type: text/html\n\n";
  148.  
  149. open(HTML,$file) || &ServerError;
  150.  
  151. $/ = ">";            # set paragraph separator
  152. #@tags = split("<",$entire);
  153. #foreach $line (@tags)
  154. while ($line = <HTML>)
  155. {
  156.     $/ = "\n";            # gotta put it back the way it was
  157.  
  158.     # Look through the file looking for a server-side include...
  159.     if ($line =~ /<!--#exec\s+cgi\s*=\s*"([^"]+)"\s*-->/)
  160.     {
  161.     $file = $1;
  162.     print $`;
  163.     $end = $';
  164.  
  165.     # Pick the right ScriptAlias from the list.
  166.     foreach $a (keys %ScriptAlias) 
  167.     {
  168.         last if $file =~ s!^$a!$ScriptAlias{$a}!;
  169.     }
  170.  
  171.     undef $path_info;
  172.  
  173.     # Find the actual program and the residual PATH_INFO
  174.     while ((!-f $file || !-x $file) && length($file))
  175.     {
  176.         $pos = rindex($file, "/");
  177.         $path_info = substr($file, $pos) . $path_info;
  178.         $file = substr($file, 0, $pos);
  179.     }
  180.  
  181.     ($dir, $prog) = ($file =~ m!^(.*)/(.*)$!);
  182.     chdir $dir;
  183.     
  184.     if (defined $path_info)
  185.     {
  186.         $ENV{"PATH_INFO"} = $path_info;
  187.         ($uid, $path) = ($path_info =~ m!/~([^/])(.*)!);
  188.  
  189.         if ($uid)
  190.         {
  191.         $path_tran = (getpwnam($uid))[7] . $path_info . "/" . $UserDir;
  192.         }
  193.         else
  194.         {
  195.         $path_tran = $DocumentRoot . $path_info;
  196.         }
  197.     }
  198.  
  199.     # Make sure that the program that we are about to call is in fact
  200.     # an executable program...  If it isn't, spit out something to
  201.     # that effect.
  202.  
  203.     if (! -e $prog) 
  204.     {
  205.         print "[ssis: program not found. " .
  206. "<a href=\"http://www.webtools.org/ssis/noprog.html\"" .
  207. ">More info availible</a>]";
  208.     } 
  209.     elsif (! -x $prog) 
  210.     {
  211.         print "[ssis: non executable program specified: '$dir' / '$prog'" .
  212. " <a href=\"http://www.webtools.org/ssis/badprog.html\">" .
  213. "More info availible</a>]";
  214.     } 
  215.     else 
  216.     {
  217.         # We have a program that exists and that we can run.  Run it!
  218.         open (INCLUDE, "./$prog|");
  219.  
  220.         $gotblank = 0;
  221.         while ($rline = <INCLUDE>) 
  222.         {
  223.         print $rline if $gotblank;
  224.         $gotblank = 1 if $rline eq "\n";
  225.         }
  226.         
  227.         close (INCLUDE);
  228.     }
  229.     
  230.     print $end;
  231.     } 
  232.     else 
  233.     {
  234.     print $line;
  235.     }
  236.     $/ = ">";            # set paragraph separator
  237. }
  238.  
  239.  
  240. # This spits out a rather official-looking error message along with any
  241. # info that we were passed.
  242.  
  243. sub ServerError {
  244.     local($message) = @_;
  245.  
  246.     print <<EOM;
  247. <html><head><h1>500 Server Error</h1></head><body>
  248.  
  249. The ssis program was called in such a way that it was unable
  250. to complete your request.<p>
  251.  
  252. Please contact the server administrator, and inform them of the time the error
  253. occurred, and anything you might have done that may have caused the error.<p>
  254.  
  255. $message
  256. </body></html>
  257. EOM
  258.     exit(1);
  259. }
  260.